home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 11 / Cream of the Crop 11-2.iso / extra_2 / nadir11.zip / SPAR.N < prev    next >
Text File  |  1995-11-08  |  5KB  |  123 lines
  1. If(0)
  2. /*
  3.     SYSTEM PARAMETERS IN PARM FILE
  4.  
  5.     system^mdir^threshold   = mdir memory limit
  6.  
  7.     system^date^format      = date format "u" for mm/dd/yyyy else dd/mm/yyyy
  8.     system^text^browser     = name of the text mode browser program  eg. l.com
  9.     system^gui^browser      = name of Windows browser  eg. notepad.exe
  10.     system^word^Define      = if set, specifies alternative for Define keyword
  11.     system^word^Eval        = ditto for Eval
  12.     system^word^If          = ditto for If
  13.     system^word^Elseif      = ditto for Elseif
  14.     system^word^Else        = ditto for Else
  15.     system^word^Endif       = ditto for Endif
  16. */
  17. Endif
  18. Define SysParm()
  19. {
  20.     scr = SdCreate(, -1, -1, 16, 72, "Nadir System Parameters");
  21.  
  22.     SdPrompt(scr, 1, 2, "Mdir Threshold  :", "m");
  23.     SdInt   (scr, "",   1,  1, 20,  8, &parm^system^mdir^threshold);
  24.     SdPrompt(scr, 3, 2, "Date Format     :", "d");
  25.     SdRadio (scr, "",   1,  3, 20, 20, &parm^system^date^format, 
  26.                                         "dd/mm/yy - Aust", "a");
  27.     SdRadio (scr, "",   1,  4, 20, 20, &parm^system^date^format, 
  28.                                         "mm/dd/yy - US", "u");
  29.     SdPrompt(scr, 6, 2, "Text Browser    :", "t");
  30.     SdString(scr, "",   1,  6, 20,  20, &parm^system^text^browser, 64);
  31.     SdPrompt(scr, 7, 2, "Gui Browser     :", "g");
  32.     SdString(scr, "",   1,  7, 20,  20, &parm^system^gui^browser, 64);
  33.  
  34.     SdPrompt(scr, 9, 2, "Words - ", "w");
  35.     SdPrompt(scr, 9,10, "Define  :");
  36.     SdString(scr, "w0",     1,  9, 20,  16, &parm^system^word^Define);
  37.     SdPrompt(scr,10,10, "Eval    :");
  38.     SdString(scr, "w1",     1, 10, 20,  16, &parm^system^word^Eval);
  39.     SdPrompt(scr,11,10, "If      :");
  40.     SdString(scr, "w2",     1, 11, 20,  16, &parm^system^word^If);
  41.     SdPrompt(scr,12,10, "Elseif  :");
  42.     SdString(scr, "w3",     1, 12, 20,  16, &parm^system^word^Elseif);
  43.     SdPrompt(scr,13,10, "Else    :");
  44.     SdString(scr, "w4",     1, 13, 20,  16, &parm^system^word^Else);
  45.     SdPrompt(scr,14,10, "Endif   :");
  46.     SdString(scr, "w5",     1, 14, 20,  16, &parm^system^word^Endif);
  47.  
  48.     SdButton(scr, "", 1,    14, 41, 10, "OK",     "", 1);
  49.     SdButton(scr, "", 1,    14, 55, 10, "Cancel", "", 2);
  50.  
  51.     while (SdEdit(scr, cursor) == 1) {
  52.         /* 
  53.             validate special words
  54.         */
  55.         for (cnt = 0, err = ""; cnt < 6 && !err; cnt += 1) {
  56.             cursor = StrCat("w", cnt);
  57.             TokenScanCreate(SdFieldGet(scr, cursor));
  58.             if (TokenNext() || TokenTerm())
  59.                 err = "No whitespace allowed";
  60.             else if (TokenType() == "EOT")
  61.                 ;               /* null entry is ok */
  62.             else if (TokenType() != "NAME")
  63.                 err = "Word entered not a name";
  64.             else if (TokenNext() || TokenTerm())
  65.                 err = "No whitespace after word allowed";
  66.             else if (TokenType() != "EOT")
  67.                 err = "More than one word entered";
  68.             /*
  69.                 else its ok
  70.             */
  71.             TokenScanDestroy();
  72.         }
  73.         if (err) {
  74.             MsgWait("", err);
  75.             continue;
  76.         }
  77.         SdUpdate(scr);
  78.         Signal("Restarting system to initialize with new parameters");
  79.     }
  80.     SdDestroy(scr);
  81. }
  82. Define SysSdParm()
  83. {
  84.     scr = SdCreate(, -1, -1, 16, 72, "Windows Dialogue Parameters");
  85.  
  86.     SdCheck (scr, "c0",   1, 1, 2, 36, &parm^dialog^option^chisel, 
  87.                             "Chisel effects in dialogues", "c");
  88.     SdCheck (scr, "c1",   1, 2, 2, 36, &parm^dialog^option^combo^dclick, 
  89.                             "Double clicks in combo boxes", "d");
  90.     SdCheck (scr, "c2",   1, 3, 2, 36, &parm^dialog^option^grid, 
  91.                             "Draw grid lines in dialogues", "g");
  92.     SdPrompt(scr, 5, 2, "Font");
  93.     SdPrompt(scr, 5, 7, "Name:");
  94.     SdString(scr, "fn",     1,  5, 16,  16, &parm^dialog^font^name, 32);
  95.     SdPrompt(scr, 6, 7, "Height:");
  96.     SdInt   (scr, "fh",     1,  6, 16,  4, &parm^dialog^font^height);
  97.     SdPrompt(scr, 7, 7, "Weight:");
  98.     SdRadio (scr, "fw1",    1,  7, 16, 12, &parm^dialog^font^weight, 
  99.                                         "Bold", "b");
  100.     SdRadio (scr, "fw2",    1,  8, 16, 12, &parm^dialog^font^weight, 
  101.                                         "Normal", "n");
  102.     SdRadio (scr, "fw3",    1,  9, 16, 12, &parm^dialog^font^weight, 
  103.                                         "Default", "d");
  104.     SdPrompt(scr, 11, 2, "Button Style:");
  105.     SdRadio (scr, "bs1",    1, 11, 16, 12, &parm^dialog^option^button^style, 
  106.                                         "Rounded", "r");
  107.     SdRadio (scr, "bs2",    1, 12, 16, 12, &parm^dialog^option^button^style, 
  108.                                         "Square", "s");
  109.     SdRadio (scr, "bs3",    1, 13, 16, 12, &parm^dialog^option^button^style, 
  110.                                         "Default", "d");
  111.  
  112.     SdButton(scr, "", 1,    14, 41, 10, "OK",     "", 1);
  113.     SdButton(scr, "", 1,    14, 55, 10, "Cancel", "", 2);
  114.  
  115.     while (SdEdit(scr, cursor) == 1) {
  116.         SdUpdate(scr);
  117.         Signal("Restarting system to initialize with new parameters");
  118.     }
  119.     SdDestroy(scr);
  120. }
  121.  
  122.  
  123.